home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / wordproc / wf_v31b.arj / PS_A4.PDV < prev    next >
Text File  |  1994-01-13  |  3KB  |  109 lines
  1. %!PS-Adobe-3.0
  2. %%Title: WORD FUGUE POSTSCRIPT
  3. %%EndComments
  4.  
  5.  
  6. statusdict begin 0 setjobtimeout end
  7.  
  8. /wfdict 120 dict def
  9. wfdict begin
  10.  
  11. /fnr /Courier findfont 10 scalefont def
  12. /fni /Courier-Oblique findfont 10 scalefont def
  13. /fnb /Courier-Bold findfont 10 scalefont def
  14. /fnbi /Courier-BoldOblique findfont 10 scalefont def
  15. /fhr /Helvetica findfont 10 scalefont def
  16. /fhi /Helvetica-Oblique findfont 10 scalefont def
  17. /fhb /Helvetica-Bold findfont 10 scalefont def
  18. /fhbi /Helvetica-BoldOblique findfont 10 scalefont def
  19. /ftr /Times-Roman findfont 10 scalefont def
  20. /fti /Times-Oblique findfont 10 scalefont def
  21. /ftb /Times-Bold findfont 10 scalefont def
  22. /ftbi /Times-BoldOblique findfont 10 scalefont def
  23.  
  24. /newl {20 currentpoint exch pop 12 sub moveto} def
  25. /newp {20 765 moveto} def
  26. /subsc {currentpoint 6 sub moveto} def
  27. /super {currentpoint 6 add moveto} def
  28.  
  29. /L {
  30.     exch dup setlinewidth 0 exch neg rmoveto 0 rlineto stroke newpath
  31. } bind def
  32.  
  33. /F {
  34.      scalefont setfont
  35. } bind def
  36.  
  37. /Uon {
  38.     currentpoint /Uy exch def /Ux exch def
  39. } bind def
  40.  
  41. /Uoff {
  42.     currentpoint
  43.         0.5 setlinewidth
  44.         currentpoint 1 sub M Ux Uy 1 sub lineto stroke newpath
  45.     moveto
  46. } bind def
  47.  
  48.  
  49. /_landscape {
  50.     0 plen translate -90 rotate
  51. } bind def
  52.  
  53. /_a4 {
  54.     /plen 841.26 def
  55. } bind def
  56.  
  57. /_letter {
  58.     /plen 792 def
  59. } bind def
  60.  
  61. /_legal {
  62.     /plen 1008 def
  63. } bind def
  64.  
  65. /_exec {
  66.     /plen 756 def
  67. } bind def
  68.  
  69. /wfeur [16#80 /Ccedilla 16#81 /udieresis 16#82 /eacute 16#83 /acircumflex
  70. 16#84 /adieresis 16#85 /agrave 16#86 /aring 16#87 /ccedilla 16#88 /eacute
  71. 16#89 /edieresis 16#8a /egrave 16#8b /idieresis 16#8c /icircumflex
  72. 16#8d /igrave 16#8e /Adieresis 16#8f /Aring 16#90 /Eacute 16#91 /ae 16#92 /AE
  73. 16#93 /ocircumflex 16#94 /odieresis 16#95 /ograve 16#96 /ucircumflex
  74. 16#97 /ugrave 16#98 /ydieresis 16#99 /Odieresis 16#9a /Udieresis 16#9b /cent
  75. 16#9c /sterling 16#9d /yen 16#9f /florin 16#a0 /aacute 16#a1 /iacute
  76. 16#a2 /oacute 16#a3 /uacute 16#a4 /ntilde 16#a5 /Ntilde 16#a6 /ordfeminine
  77. 16#a7 /ordmasculine 16#a8 /questiondown 16#ab /onehalf 16#ac /onequarter
  78. 16#ad /exclamdown 16#ae /guillemotleft 16#af /guillemotright 16#e1 /germandbls
  79. 16#e6 /mu 16#f1 /plusminus 16#f6 /divide 16#f8 /degree 16#f9 /bullet
  80. 16#fa /periodcentred 16#fd /twosuperior
  81. ] def
  82.  
  83. /_ef {
  84.     /reencode 12 dict def
  85.     reencode begin
  86.         /newfontname exch def
  87.         /basefontname exch def
  88.         FontDirectory newfontname known not
  89.             {/basefont basefontname findfont def
  90.             /newfont basefont maxlength dict def
  91.             basefont {exch dup /FID ne
  92.                     {dup /Encoding eq
  93.                         {exch dup length array copy newfont 3 1 roll put}
  94.                         {exch newfont 3 1 roll put} ifelse
  95.                     }
  96.                     {pop pop} ifelse
  97.             } forall
  98.             newfont /FontName newfontname put
  99.             wfeur aload
  100.             length 2 idiv {newfont /Encoding get 3 1 roll put} repeat
  101.             newfontname newfont definefont pop
  102.         } if
  103.     newfontname
  104.     end
  105. } bind def
  106. _a4
  107. fnr setfont
  108.  
  109.